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1 .  BACKGROUND 


1.1  Software  Programmable  Airborne  Encoder 

As  part  of  the  research  and  development  effort  carried  out  under 
this  contract  the  unique  characteristics  of  microprocessors  have  been 
combined  with  PCM  encoders  to  produce  a  versatile  data  acquisition 
system  which  can  be  programmed  to  perform  the  tasks  required  for  a 
specific  mission.  These  encoders  employ  the  Intel  8748  microcomputer 
as  a  controlling  unit.  The  software  control  is  provided  by  means  of 
a  program  which  is  placed  in  the  EPROM  memory  of  the  8748.  The  program 
is  used  to  set  the  sampling  rate  at  input  ports,  the  amplitude  resolu¬ 
tion  via  bits  per  word,  the  number  of  words  per  frame,  the  use  of 
parity,  the  synchronization  code,  the  transmission  rate  and  other  suit¬ 
able  parameters.  A  basic  version  of  these  programmable  encoders  was  de¬ 
veloped  for  the  BIME  rocket  program,  and  two  were  successfully  flown 
on  rockets  A20. 123-1  and  A20. 123-2  from  the  Natal  Rocket  Range,  Brazil 
in  September  1982. 

1.2  The  Microcomputer 

The  Intel  8748  was  chosen  for  this  application.  It  is  classified 
as  a  single  component,  8  bit  microcomputer  and  has  a  user  programmable/ 
erasable  EPROM.  A  device  to  write  the  program  into  the  EPROM  memory 
was  available  but  it  required  as  its  input  the  hexidecimal  codes  for 
both  the  memory  addresses  and  also  the  program  instructions  which  were 
to  be  written  into  memory.  Consequently  any  user  was  confronted  with 
the  task  of  first  writing  the  program  using  Intel's  MCS-48  mnemonics 
and  keeping  track  of  memory  locations,  and  then  translating  the  mnemonics 
and  the  memory  locations  into  hexidecimal  codes.  This  process  was  very 
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time  consuming  and  error  prone  and  an  assembler  for  the  8748  appeared 
to  be  the  answer. 

2.  THE  8748  ASSEMBLER 

2.1  VAX  Usage 

The  Northeastern  University  VAX  11/780  Operating  System  has  an  ex¬ 
tensive  conditional  macro  assembler.  This  macro  assembler  and  parts  of 
the  VAX  assembler  were  used  to  construct  the  8748  assembler.  Use  of 
this  VAX  facility  enabled  the  new  assembler  to  employ  such  utilities 
as  linking,  extensive  macro  processing,  debugging  and  the  like.  Further¬ 
more,  the  powerful  Digital  Command  Language,  DCL,  could  be  employed  to 
minimize  the  detailed  knowledge  of  the  VAX  system  required  on  the  part 
of  the  user. 

The  design  of  the  assembler  was  undertaken  as  a  senior  project  by 
James  Manley  under  the  sponsorship  of  this  contract  and  under  the  super¬ 
vision  of  Professor  J.S.  Rochefort.  Its  first  test  was  to  assemble  the 
8748  program  which  was  written  by  Mr.  Thomas  Wheeler  for  the  BIME  roc¬ 
ket  program. 

2.2  Procedure  for  Assembler  Usage 

The  occasional  user  of  the  8748  assembler  should  be  able  to  use 
one  of  the  VAX  editors  and  be  able  to  program  using  the  mnemonics 
listed  in  Intel's  MCS-48  user's  manual. 

The  file  should  be  named 

"File  Name". MAR 

and  should  contain  the  program  which  is  to  be  assembled  in  Intel's  format. 


The  last  entry  into  the  file  is 

.END 

and  is  placed  in  the  op  code  field. 

Do  not  use  5  periods  ( . )  or  the  dollar  sign  ($)  in  any 

symbol  names  as  they  are  reserved  for  the  VAX  and  will  cause  confusion. 

All  indirect  accesses  using  registers  R|8  and  R1  should  be  written 
in  the  form 

_R0  instead  of  @R0 
_R1  instead  of  @R1 

since  @  is  used  by  VAX  for  a  shifting  function. 

All  constants  should  be  equated  to  symbols  and  then  these  symbols 
should  be  used  in  the  operand  field.  If  constants  are  used  in  the 
operand  field  then  they  must  be  expressed  as  a  base  ten  number,  other¬ 
wise  an  error  will  be  made  in  assembly. 

Example:  1  Both  of  following  will  assemble  correctly 
ADD  A,  15  CONST  =  15 
ADD  A,  CONST 

Example:  2  The  left  column  will  assemble  incorrectly 
ADD  A, A  X  15  CONST  =  /v  x  15 
ADD  A,  CONST 

The  step-by-step  procedure  to  use  the  assembler  becomes 

1.  Edit  a  file  "File  Name". MAR  using  Intel  mnemonics  with 
the  exception  noted  above.  Close  the  file  with  .END  . 

2.  Enter  the  DCL  command 

@ASM8748 

This  DCL  program  will  do  all  the  proper  file  manipulations 


-3- 


and  executions.  The  resulting  file,  named  "File  Name". LIS, 
will  be  created  containing  the  object  code  and  errors. 

3.  If  errors  exist  use  this  new  file  to  re-edit  the  origi¬ 
nal  program  in  "File  Name". MAR  and  then  go  to  step  2. 

4.  When  errors  no  longer  exist  a  hard  copy  can  be  obtained 
using  the  command 

PRINT  "File  Name".LIS;n  . 

2.3  The  Assembly  Program 

The  DCL  program  is  shown  in  Appendix  A  and  is  designated  as 
ASM8748.C0M;1 .  A  programmer  familiar  with  DCL  can  break  this  file 
down  into  smaller  modules  to  save  time  under  some  circumstances  or 
adapt  the  program  to  other  systems. 

The  assembler  program  is  shown  in  Appendix  B  and  is  designated 
by  SPAREASM.MAR;! .  As  written  the  assembler  handles  the  instructions 
currently  used  by  the  8748.  If  new  instructions  are  developed  for 
future  modifications  of  the  8748  by  Intel  then  a  programmer  with  macro 
experience  can  write  an  update. 

3.  APPLICATION  TO  BIME 

3.1  The  Program  for  Assembly 

The  first  three  pages  of  the  program  written  for  the  8748  micro¬ 
computer  contained  in  the  BIME  encoder  are  shown  in  Appendix  C  and 
designated  as  BIME.MAR;!. 

The  bulk  of  the  first  page  of  the  printout  is  devoted  to  defining 
constants  by  the  symbols  used  in  the  program.  The  program  instructions 
begin  with  the  line  DIS  I.  Comments  are  found  to  the  right  of  the 
semicolons. 
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3.2  The  Assembled  Program 


The  first  three  pages  of  the  assembled  program  for  the  BIME  8748 
microcomputer  are  shown  in  Appendix  D  and  designated  as  BIME.LIS;!. 

This  printout  should  be  compared  against  that  of  BIME.MAR;!. 

The  majority  of  the  first  page  of  this  appendix  is  concerned  with 
the  constants.  The  lines  from  the  input  program  (BIME.MAR;!)  can  be 
easily  recognized  to  the  right  of  the  column  of  zeroes.  The  8  column 
printing  to  the  extreme  left  contains  the  hexidecimal  equivalent  for 
each  decimal  constant. 

Once  the  program  itself  is  encountered  it  should  be  noted  that 
2  or  3  lines  are  allotted  to  each  of  the  original  instructions.  The 
first  line  associated  with  each  instruction  repeats  the  instruction 
from  BIME.MAR  and  shows  the  address  of  the  assigned  EPROM  cell  as  a 
four  digit  hexidecimal  number.  The  second  line  (and  third  line  where 
needed)  give  the  hexidecimal  code  for  the  instruction  as  a  2-digit  num¬ 
ber  followed  by  the  4-digit  address.  The  following  examples  serve  to 
illustrate  this  format. 

Example  A 

Instruction  SEL  RBO  is  assigned  to  memory  address  0030 
(from  first  line),  and  C5  (the  op  code  for  SEL  RBO)  is  to 
be  put  into  this  cell. 

Example  B 

Instruction  MOV  A,  W1  is  assigned  memory  address  0006 
and  0007.  Into  the  first  address  23  is  to  be  put,  and  into 
address  0007  is  to  be  put  82  (it  should  be  noted  that  82  is 
the  hexidecimal  value  of  the  constant  Wl). 


APPENDIX  A 


ASM8748.C0M;1 


10  $WRITE  SYS$0UTPUT  "Enter  file  to  be  assembled," 

20  $WRITE  SYS$0UTPUT  "  do  not  put  in  .HAR;n  part  of  filename." 

30  $WRITE  SYS$0UTPUT  "System  will  assume  .MAR;n  at  end  of  filename. 

40  $INQUIRE  PI  ENTER  FILE  SPEC 

50  $WRITE  SYS$0UTPUT  "YOU  HAVE  BEGUN  THE  ASSEMBLY  OF  "PI’. MAR" 

70  $0N  WARNING  THEN  CONTINUE 
80  $APPEND/NEW  SPAREASM.MAR. 'PI' .MAR  A. MAR 
85  $0N  WARNING  THEN  CONTINUE 

90  $MAC/LIS='P1 ' .LIS/NOOBJ/NOSHOW=(CND,MD,ME)/SHOW=(MC,MEB)/DISABLE 
GLOBAL  A. MAR 
100  $DEL  A. MAR;* 


APPENDIX  B 


SPARASH.MAR;! 


.MACRO  CONS (ANT 

RO ♦ ♦ » ♦ — 1 
Rl....=2 
R2 • t . » —3 
R3  » . . » =4 
R4,...=5 
R5.»*.— 6 
R6 . . *  *  =7 
R7 ♦ * . ♦ —Q 
_RO »  » . «  —9 
— R l.»«.=10 
A  » ♦ » . =1 1 
PI. ...=12 
P2. . ..=13 
BUS,... =14 
_A. ♦ . .=15 
C....=16 
F0....=17 
F1....=X8 
PSW....=19 
T . . . .=20 
CNT.,..=21 
TCNT. . . .=22 
TCNri....=23 
RB0....=24 
RBI.... =25 
MB0..,.=26 
MB1....=27 
CLK...,=28 
I.... =29 
P4,...=30 
P5 .... =3 1 
P6. . ♦ ,=32 
P7. . . .=33 

.ENDM  CONSTANT 
CONSTANT 

.MACRO  MACl  MARG1tMARG2 

.IF  NOT_BLANK. MARGl 

.BYTE  <HARG2> 

.BYTE  <MARG1> 

.MEXIT 
♦  ENDC 

.WARN  ; MISSING  JUMP  ADDRESS 
,ENDH  MACl 

.MACRO  MAC2  MARGl f MARG2 . HAROS 

.IF  DEFINED  MARGl'.... 

.IF  I'FFCr'Eii  MARG2'.... 

.  IF  t.UUA'.  MARGl  '  .  ,  .  .  ■  A.  ,  ,  . 

,  IF  equal  MhRG2'  ....  -•  .  A .  .  .  . 

.BYT!;  <MARi;.G> 

.MFX  ri 
.ENDC 

.WARN  rIMOAI.n:i  SECONu 
.MEX  i:t 
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n 


I* 


<MARG2 


ERR0R=1 


♦  ENDC 

.WARN  » INVALID  FIRST  ARGUEMENT 
.HEX IT 
.ENDC 
.ENDC 

.WARNf  INVALID  PARAMETER 
.ENDM  MAC2 

.MACRO  MAC3  MARG1»MARG2 
.IF  DEFINED  MARGl".... 

.IF  EQUAL  MARGl'....  -  A.... 

.BYTE 

.MEXIT 
.ENDC 
.ENDC 

.WARN  ; INVALID  ARGUEMENT 
.ENDC 

.ENDM  MAC3 

.MACRO  MAC4  MAR61»MARG2 

..IF  NOT_DEFINED  MARGl ' . . . . 

.BYTE 
.BYTE 

.MEXIT 

.ENDC 

.WARN  ; INVALID  OR  HISSING  ADDRESS 
.ENDM  MAC4 

.MACRO  MACS  MARGlfMARG2 

.IF  DEFINED  MARGl ' . . . ♦ 

.IF  EQUAL  MARGl'....  -  P4.... 

.BYTE  <MARG2> 

.MEXIT 

.ENDC 

.IF  EQUAL  MARGl'.... 

.MEXIT 
.ENDC 

.IF  EQUAL  MARGl'.... 

.MEXIT 
.ENDC 

.IF  EQUAL  MARGl'.... 

.MEXIT 
.ENDC 
.ENDC 

.WARN? INVALID  PORT  NAME 
.ENDM 

.MACRO  MAC6  MARGl »MARG2 
.IF  DEFINED  MARGl'..., 

.IF  EQUAL  MARGl '  .  .  .  .  -  _.RO  .... 

.BYTE 

.MEXIT 
.ENDC 

.  IF  EQUAL  MARGl '  .  .  .  .  ~  _.R1 .... 


««MARG10-3>»  "XOEO !  HARG2» 
<MARG1> 


—  PS .... 

♦BYTE  <MARG2  !  Ol> 


—  P6. ... 

.BYTE  <MARG2  !  02> 


-  P7 . . .  . 

.BYTE  <MARG2  !  03> 


<MARG2> 
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BYTE  <MARG2  !  01> 


♦HEXIT 
.ENLiC 
.  ENDC 

ERR0R=0 

♦  ENDM 

.MACRO  MAC7  MARGl ,MARG2»MARG3»MARG4»MARG5 
.IF  NOT.DEFINED  MARGl'.... 

.warn; MISSING  PARAMETER 
.MEXIT 
.ENHC 

.IF  EQUAL  MARGl'....  -  A.... 

♦BYTE  <MARG2> 

.MEXIT 

.ENDC 

.IF  EQUAL  MARGl^....  -  C.... 

.BYTE  <MARG3> 

.MEXIT 
.  ENDC 

.IF  EQUAL  MARGl'....  -  FI.... 

.BYTE  <MARG4> 

.MEXIT 

.ENDC 

.IF  EQUAL  MARGl"....  -  FO.... 

.BYTE  <MARG5> 

.MEXIT 

.ENDC 

.warn; INVALID  PARAMETER 
.ENDM 

.MACRO  MACS  MARGl 
.IF  DEFINED  MARGl'.... 

.IF  EQUAL  MARGl'....  -  RO.... 

REG=0 

.MEXIT 
.  ENDC 

.IF  EQUAL  MARGl'....  -  R1 . . . . 

REG=1 

.MEXIT 

.ENDC 

, IF  EQUAL  MARGl ' . . ♦  .  -  R2. . . . 

REG=2 

♦MEXIT 

.ENDC 

.IF  EQUAL  MARGl'....  -  R3. . .  . 

REG=3 

.MEXIT 

.ENDC 

. IF  EQUAL  MARGl ' . . . .  -  R4 . ♦  .  . 

REG==4 

.MEXIT 

.ENDC 

. IF  EQUAL  MARGl ' .  .  .  .  -  R5. . . . 

REG~S 

.MEXIT 

.F:NriC 
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REG=6 

RE6=7 

RF.G=9 


IF  EQUAL  MARGl"....  -  R6. . . . 


.MFXIT 

FNDC 

IF  EQUAL  MARG 


R7  *  «  *  • 


♦MEXIT 

ENDC 

ENUC 


ENDrt 

MACRO  MAC?  MARGlfMARG2»MARG3fMARG4»MARG5 
IF  NOT..DEFINED  MARGl  ^ . 

.warn; MISSING  FIRST  PARAMETER 
.MEXIT 
ENDC 

IF  EQUAL  MARGl'....  -  A.... 

MAC<&  MARG2»MARG3 
.IF  EQUAL  ERROR 
MACS  MARG2 
.IF  EQUAL  REG  -  ? 

.BYTE  MARG4 


.MEXIT 

.ENOC 


.BY IE  MARG2 

.BYTE  <MAR65  f  RE6> 


.MEXIT 

.ENDC 

.MEXIT 

ENDC 

WARN? FIRST  ARGUEMENT  MUST  BE  AN  A 
ENDM  MAC? 

MACRO  MAC 10  MARGl »MAR62fMARG3fMARG4»MAR65»MARG6 
IF  EQUAL  MARGl'....  -  A.... 

MACS  MARG2 

♦IF  EQUAL  REG  -  ? 

MAC6  MARG2fMAR64 
.IF  EQUAL  ERROR 

♦BYTE  MARG5 
♦BYTE  MARG2 


.MEXIT 

.  ENDC 
.MEXIT 
♦  ENDC 


♦  BYTE  «MARG3>  !  RFO 

.MEXIT 

ENDC 

IF  EQUAl.  MARGl '  .  .  .  .  -  DUS.  .  ♦  . 

♦BYTE  MARG6 
♦BYTE  MARG2 

.MEIXIT 

ENDC 

IF  EQUAL  MARGl'....  --  PI.... 

.BYTE  <MARG6  •  01> 


BYTE  MAR62 


♦MEXIT 

*ENDC 

♦IF  EQUAL  MARGl'....  -  P2..,. 

♦BYTE  <MARG6  !  02>  • 

♦BYTE  MARG2 

♦MEXIT 

♦  ENDC 

♦WARN? INVALID  PARAMETER 
♦ENUM  MAC 10 

♦  MACRO  MACH  MARGl  »MARG2»MARG3»MARG4»MARG5 

♦  IF  DEFINED  MARGIN.  ♦♦♦ 

ERR0R2=1 

♦IF  EQUAL  MARGl'*.^.  -  PSW^ ♦ ♦ . 

♦BYTE  MARG5 

♦MEXIT 

♦  ENDC 

♦IF  EQUAL  MARGl'^^^*  -  !♦♦♦♦ 

♦BYTE  MARG4 

♦MEXIT 

♦  ENDC 

MAC6  MARGlfMARG3 
♦IF  EQUAL  ERROR 
MACS  MAR61 
♦IF  EQUAL  REG  -  9 

ERR0R2=0 

♦MEXIT 
♦  ENDC 

♦BYTE  <MARG2  !  REG> 

♦  ENDC 
♦MEXIT 

♦  ENDC 

ERR0R2=0 

♦  ENDM  MACH 

♦MACRO  DA  ARG1=A 

MAC3  ARG1»87 
♦ENDM  DA 

♦MACRO  SWAP  ARGl^A 

MAC3  ARGlf71 
♦ENDM  SWAP 
♦MACRO  RL  ARG1=A 

MAC3  ARG1t231 
. ENDM  RL 

♦MACRO  RLC  ARG1=A 

MAC3  ARG1»247 
♦ ENDM  RLC 

♦MACRO  RR  ARG1=A 

MAC3  ARGHHV 
♦ENDM  RR 

♦MACRO  RRC  ARG1=A 

MACS  ARGH103 
♦ENDM  RRC 

♦  MACRO  INS  ARGl  =A»ARG2^-^BU'J 

♦  IF  EQUAL  ARGl ' . ♦ ♦ ♦  -  A. ♦ .  . 

♦IF_TRUE 


IF  EQUAL  ARG2'....  -  BUS*..* 
IF.TRUE 

.BYTE 

IF_FALSE 

WARN  ; INVALID  SECOND  ARGUEMENT 

MEXIT 

ENDC 

IF_FALSE 

WARN  J INVALID  FIRST  ARGUEMENT 

MEXIT 

ENDC 

ENDM  INS 
MACRO  JMP  ARGl 

iAC4  ARGl »  04 
ENDM  JMP 

MACRO  JMPP  ARG1=_A 

IF  EQUAL  ARGl"....  -  _A.... 
IF_TRUE 

.BYTE 

IF_FALSE 

WARN  f INVALID  ARGUEMENT 
ENDC 

ENDM  JMPP 
MACRO  JC  ARGl 

iACl  ARGl  f  246 
ENDM  JC 

MACRO  JNC  ARGl 
iACl  ARGl » 230 
ENDM  JNC 
MACRO  JNZ  ARGl 
iACl  ARGl » 150 
ENDM  JNZ 
MACRO  JZ  ARGl 

iACl  ARGl  r  198 
ENDM 

MACRO  JTO  ARGl 

iACl  ARGlf54 

ENDM  JTO 

MACRO  JNTO  ARGl 

IACl  ARGl  f  38 

ENDM  JNTO 

MACRO  JTl  ARGl 

iACl  ARGl  f  86 

ENDM  JTl 

MACRO  JN71  ARGl 

iACl  ARGl -70 

ENDM  JNTl 

MACRO  JFO  ARGl 

ACl  ARG1.1B2 

ENDM  JFO 

MACRO  JFl  ARGl 

ACl  ARGl »  118 

ENDM  JFl 

MACRO  JTH  ARGl 


fACl 

ARGlr22 

ENDM 

JTF 

MACRO 

JNI  ARGl 

iACl 

ARGlfl34 

ENDM 

JNI 

MACRO 

CALL  ARGl 

iAC4 

ARGl » 20 

ENDM 

CALL 

MACRO 

RET 

♦  BYTE 

ENDM 

RET 

MACRO 

RETR 

♦  BYTE 

ENDM 

RETR 

MACRO 

MOVP  AR61=A»ARG2=_i 

IAC2 

ARGl fARG2» 163 

ENDM 

MOVP 

MACRO 

M0VP3  ARGl*AfARG2=_i 

IAC2 

ARGl fARG2f 227 

ENDM 

MdvP3 

MACRO 

STOP  ARGl»TCNr 

IF  EQUAL  ARG1'.«.«  -  TCNT.«* 

IF_.TRUE 

♦  BYTE 

IF_FALSE 

WARN 

;iNUALID  ARGUEMENT 

ENDC 

ENDM 

STOP 

MACRO 

ENTO  ARG1=CLK 

IF  EQUAL  ARGl",^^^  -  CLK».., 

IF-TRUE 

♦  BYTE 

IF_FALSE 

WARN 

; INVALID  ARGUEMENT 

ENDC 

ENDM 

ENTO 

MACRO 

NOP 

.♦BYTE 

ENDM 

NOP 

MACRO 

IN  ARGl=ArARG2 

IF  EQUAL  ARGl'^^,^  -  A..^. 

»IF  EQUAL  ARG2',,,.  -  PI « ♦ . ♦ 

♦BYTE  09 

.MEXIT 

.ENDC 

.  IF  EQUAL  AF<G2 '  ♦  ♦  «  ♦  -  P2. .  ♦  .  . 

♦BYTE  10 

♦MEXIT 
♦  ENDC 

♦WARN? ILLEGAL  PORT  NUMBER 
♦MEXIT 
ENI.IC 

UARNfINPUf  CAN  ONLY  BE  A 
ENDM  IN 

MACRO  OUTL  ARGlrARG2=2 


♦IF  EQUAL  ARG2'..*.  -  A.... 

♦IF  EQUAL  ARbl'..*.  -  PI,... 

♦  BYTE  ''X39 

♦MEXIT 

♦  ENQC 

♦IF  EQUAL  ARGl'....  -  P2.... 

♦BYTE  "XSA 

♦MHXIT 

♦  ENDC 

♦IF  EQUAL  ARGl'^^.^  -  BUS^^.^ 

♦  BYTE  ''X02 

♦MEXIT 

♦  ENDC 

♦WARN? INVALID  FIRST  ARGUEMENT 
♦MEXIT 

♦  ENDC 

♦WARN? SECOND  ARGUEMENT  MUST  BE  AN  A 
♦ENDM  OUTL 

♦MACRO  MOVD  AR6l=A, ARG2=A 
♦IF  EQUAL  ARGl'^^^^  -  A^^^^ 

MACS  ARG2fl2 
♦MEXIT 

♦  ENDC 

♦IF  EQUAL  ARG2"^^^^  -  A^ . ♦ ♦ 

MACS  ARGl » 60 

♦  ENDC 

♦ENDM  MOVD 

♦MACRO  ANLD  ARGlfARG2=A 

♦  IF  EQUAL  fiRG2*****  -  A^«.^ 

MACS  ARGlflS6 
♦MEXIT 

♦  ENDC 

♦WARN? SECOND  ARGUEMENT  MUST  BE  AN  A 
♦ENDM  ANLD 

♦MACRO  ORLD  ARG1»ARG2*A 
♦IF  EQUAL  ARG2'^^^^  -  A^ ♦ ♦ ♦ 

MACS  ARGl F 140 

♦  MEXIT 

♦  ENDC 


♦WARN?  SECOND  ARGUEMENT  NOT  AN  A 
♦ENDM  ORLD 

♦MACRO  XCHD  ARG1=A»ARG2 

♦  IF  EQUAL.  ARGl  '  ,  .  .  ♦  -  A^  ♦  .  . 

MAC6  ARG2f48 

♦IF  EQUAL  ERROR 

♦WARN?  INVALID  INDIRECT  RHGISfER  NUMBER 
♦  ENDC 
♦MEXIT 

♦  ENDC 

♦WARN?  FIRSf  ARGUEMENT  MUST  BE  AN  A 
♦ENDM  XCHD 

♦MACRO  MOVX  ARG1=A»ARG2«A 

♦IF  DEFINED  ARGl ' ♦ , . , 
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♦  ♦  ♦  ♦ 


.IF  DEFINED  ARG2' 

.IF  EQUAL  AR61'....  -  A.... 

MAC6  ARG2rl2& 

.IF  EQUAL  ERROR 

.UARN;  INVALID  SECOND  ARGUEHENT 
.ENDC 
.MEXIT 
.ENDC 

.IF  EQUAL  ARG2'....  -  A.... 

HAC6  ARG1.144 
.IF  equal  error 

.WARNr  INVALID  FIRST  ARGUEMENT 
♦  ENDC 
.MEXIT 
.ENDC 
.ENDC 
.ENDC 

.warn;  one  of  the  ARGUEMENTS  must  be  an  a 

.ENDM  MOVX 

.MACRO  STRT  ARGl 

.IF  BLANK  ARGl 

.WARNrMISSING  ARGUEMENT 
.MEXIT 
.ENDC 

.IF  EQUAL  ARGl'....  -  CNT.... 

.BYTE  ''X45 

.MEXIT 

.ENDC 

.IF  EQUAL  ARGl'...*  -  T.*.. 

.BYTE  ''X55 

.MEXIT 

.ENDC 

.warn;  invalid  parameter 

.ENDM  STRT 
.MACRO  EN  ARGl 

.IF  BLANK  ARGl 

.UARNf  MISSING  ARGUEMENT 
.MEXIT 
.ENDC 

.IF  EQUAL  ARGl'....  -  I.... 

.BYTE  "XOS 

.MEXIT 

.ENDC 

.IF  EQUAL  ARGl'....  -  TCNTI.... 

.BYTE  ''X2b 

.MEXIT 
.  ENDC 

♦WARN?  INVALID  ARGUEMENT 
.ENDM  EN 

.riACRO  DIS  ARGJ 

.IF  BLANK  ARGl 

.WARN?  MISSING  ARGUEMENT 
.MEXl I 
.  ENDC 

.IF  EQUAL  ARGl' 


I  #  «  •  « 


BYTE  "XIS 


.HEX IT 
.ENBC 

.IF  EQUAL  ARGl'....  -  TCNTI.... 

.BYTE  ''X35 

.MEXIT 
.ENDC 

.uarn;  invalid  arguehent 

.ENDM  DIS 
.MACRO  SEL  ARGl 

.IF  BLANK  ARGl 

.warn;  missing  arguement 
.MEXIT 
.ENDC 

.IF  EQUAL  ARGl'....  -  MBO.... 

.BYTE  ''X0E5 

.MEXIT 
.ENDC 

.IF  EQUAL  ARGl'....  -  MBl.... 

.BYTE  "XOFS 

.MEXIT 
.ENDC 

.IF  EQUAL  ARGl'....  -  RBO...* 

.BYTE  ''XOC5 

.MEXIT 
.ENDC 

.IF  EQUAL  ARGl'..*.  -  RB1*.*« 

.BYTE  ''X0D5 

.MEXIT 
.ENDC 

*UARN$  INVALID  PARAMETER 
.ENDM  SEL 

.MACRO  CLR  ARGl 

MAC7  ARGl f3?» 151 » 165 » 133 

.ENDM  CLR 

.MACRO  CPL  ARGl 

MAC7  ARGlrSSf 167fl81>149 

.ENDM  CPL 

.MACRO  DJNZ  ARGlrARG? 

.IF  BLANK  ARGl 

.UARNf  MISSING  REGISTER  NUMBER 
.MEXIT 
.  ENDC 

.IF  BLANK  ARG2 

.warn;  missing  address 

.MEXIT 
.  ENDC 
MAC8  ARGl 
.IF  EQUAL  REG  -  V 

.warn;  invalid  register 

.MEXIT 
.  ENDC 

.BYTE  <rX0E8  !  REG> 
.BYTE  <ARG2> 
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.ENDH  DJN;^ 

» MACRO  JB  ARG1»AR62 

.IF  BLANK  AR61 

.UARNr  MISSING  BIT  NUMBER 
.MEXIT 

♦  ENBC 

.IF  BLANK  AR62 

.warn;  missing  jump  address 

.MEXIT 

♦  ENDC 

.IF  GREATER  ARGl  +  1 
.IF  LESS.THAN  ARGl  -  8 

.BYTE  <ARG1S5  !  18> 
.BYTE  <ARG2> 

.MEXIT 

.ENDC 

.WARNfBIT  NUMBER  NEGATIVE 
.MEXIT 
.ENDC 

.warn;  bit  number  greater  than  7 

.ENDM  JB 

.MACRO  ADD  ARG1=A»hRG2 

MAC9  ARGl fARG2>96»03> 104 

.ENDM  ADD 

.MACRO  ADDC  ARGlaAfARG2 

MAC9  ARGlfARG2f 112»19rl20 
.ENDM  ADDC 

.MACRO  XRL  ARGlfARG2 

MAC9  ARGlf ARG2»208>211»216 
.ENDM  XRL 

.MACRO  XCH  ARGl«AfARG2 

.IF  BLANK  AR62 

.warn;  MISSING  SECOND  ARGUEMENT 
♦MEXIT 
.ENDC 

.IF  EQUAL  ARGl'....  -  A.... 

MAC6  ARG2t32 
.IF  EQUAL  ERROR 
MACS  ARG2 
.IF  EQUAL  REG  -  9 

.warn;  invalid  second  ARGUEMENf 
.MEXIT 
.ENDC 

.BYTE  <''X20  !  REG> 

.MEXIT 
.  ENDC 
.MEXIT 
.ENDC 

.warn;  first  ARGUEMENT  must  be  an  a 

.ENDM  XCH 

.MACRO  DEC  ARG1=A 
.IF  EQUAL  ARGl'....  -  A.... 

.BYTE  '"X07 

.MEXIT 

.ENDC 
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MACS  ARGl 

.IF  NOT_EQUAL  REG 


9 


.BYTE  <''X0C8  !  REG> 

.HEX IT 
.ENHC 

.warn;  invalid  arguemeni 

.ENDM  DEC 

.MACRO  INC  ARGl 

.IF  EQUAL  ARGl'....  -  A.... 

.BYTE  ''X17 

.MEXIT 


.  ENDC 

MAC6  ARGl » 16 
.IF  EQUAL  ERROR 
MACS  ARGl 
.IF  EQUAL  REG  -  9 

.warn;  invalid  arguement 

.MEXIT 

.ENDC 

.BYTE  <'*X18  !  REG> 

.  ENDC 

.ENDM  INC 

. MACRO  ANL  ARG1=A>AR62 

MACIO  ARGlfARG2»88>80f83»lS2 
.ENDM  ANL 

.MACRO  ORL  ARGl=AfARG2 

MACIO  ARGlfARC2f72f64»67»136 
.ENDM  ORL 

.MACRO  MOV  ARGlrAR62 

.IF  DEFINED  ARGl'.... 

.IF  EQUAL  ARGl'....  -  A.... 

MACH  ARG2 f  248 f  240 » 66.199 
.IF  EQUAL  ERR0R2 

.BYTE  ''X23 
.BYTE  ARG2 

.MEXIT 

.ENDC 

.MEXIT 

.ENDC 

.ENDC 

.IF  DEFINED  ARG2'..,. 

.IF  EQUAL  ARG2'....  -  A..., 

MACH  ARGl .168. 160.98.215 
,IF  EQUAL  ERR0R2 

.warn; INVALID  PARAMETER 
.ENDC 
.MEXIT 
.  ENDC 
.ENDC 

.  IF  NOT  _IiEF  INED  ARGl '  .  ,  .  . 

.warn;  INVALID  PARAMETER 
.MEXIT 
.ENDC 
MACS  ARGl 


♦IF  EQUAL  REG  -  9 

♦IF  EQUAL  ARGl'^^^^  -  «R0^... 

♦  BYTE  '*XOBO 
♦BYTE  AR62 

♦MEXIT 

♦  ENDC 

♦  IF  EQUAL  ARG1%^^^  -  _R1^.^^ 

♦BYTE  "XOBl 
♦BYTE  AR62 

♦MEXIT 

♦  ENDC 

♦UARNr  INVALID  FIRST  ARGUEMENT 

♦  MEXIT 
♦  ENDC 

♦  BYTE  <'‘X0B8  !  REG> 
♦BYTE  ARG2 

♦ENDM  MOV 


APPENDIX  C 


BIME.MAR;! 


A1=00 
A2=01 
A3=02 
A4=03 
A5=^04 
Bl==08 
B2=09 
B3=10 
B4=ll  " 

B5=12 

B6=13 

B7=14 

C2=18 

C3=19 

C4=20 

C5=21 

C6=22 

C7=16 

C8=17 

C9=64 

C70=112 

SC=00  J SPARE  CHANNEL 

KI=17 

KP=16  ; COUNTER  P0INTER=16 

Pl=02  JPOINTER  1=02 

P2=08  JPOINTER  2=08 

P3=09  JPOINTER  3=09 

P4=00  JPOINTER  4=00 

P5=01  JPOINTER  5=01 

Ul=130  JSET  WORD  LENGTH=<8+1 )=9BITS  AND  SET  OUTPUT  CODE=BiO-L 
W2=00  JSET  PARITY=NO  PARITY 

W3=40  JSET  BIT  RATE=11 ♦9439#10E6/2( 1+1 ) < 1+3)=221 . 184KH3 

W4=15  JSET  OUTPUT  FILTER=XXXKHz 

U5=16  JSET  PGA=2 

W6=01  JSrNC  PATTERN 

W7=230 

W8=01 

W9=64 

W 10=254  JGYNC  PATTERN/BAR 
Wll=25 
W 12=254 
W13=191 

BIS  I 

ENID  CLK  J ENABLE  CLOCK 

SEL  NBO 

SEL  RBO 

PiD'v'  ROrPl  fPOPr  2 

MOO  A»U1  f SELECT  WORD  LENGTH  =  (3+1)  =  9  BITS  AND 

MOOX  _ROrA  J SELECT  OUTPUT  CODE  =  BiO-L 

INC  RO  JPORT  3 

MOO  AfW2  JSLLECT  PARITY  =  NO  PARITY 


INC 

RO 

MOV 

A^U3 

MOVX 

_RO^A 

INC 

RO 

MOV 

A^W4 

MOVX 

_ROfA 

MOV 

A^WS 

OUTL 

P2^A 

MOV 

RO  ♦  P2 

MOV 

R1  ♦PJ 

MOV 

R2^W6 

MOV 

R3^W7 

MOV 

R4^U8 

MOV 

R5^WV 

SEL 

RBI 

MOV 

R0^P4 

MOV 

R1^P5 

MOV 

R2^W10 

MOV 

R3^U11 

MOV 

R4^W12 

MOV 

R5^W13 

SEL 

RBO 

MOV 

R6^KI 

CLR 

A 

MOV 

<t 

o 

1 

CLR 

FO 

CPL 

FO 

MOVX 

A^_RO 

JNTl 

Si 

MOV 

A^R4 

MOVX 

_R1^A 

MOV 

A^R5 

MOVX 

-ROrA 

MOV 

ArBl 

OUTL 

PI  ♦A 

MOVX 

Af_RO 

JNTl 

S2 

SEL 

RBO 

DJNZ 

R6fPTA 

MOV 

R6  ♦  KP 

CLR 

FO 

MOV 

A»B2 

OUTL 

PI  tA 

MOVX 

A  7  _  R  0 

JNTl 

S3 

JFO 

PTB 

CLR 

A 

MOV 

_RO.  A 

MOV 

A7B3 

OUTL 

PI  7  A 

MOVX 

A7..RO 

JNI  1 

S4 

fPORI  4 

» SELECT  BIT  RATE  =  222.222KBITS 
fPORT  5 

♦  SELECT  OUTPUr  F-  JLTER  =  XXXKHz' 

♦SELECT  PGA  =  2 

♦SET  POINTERS  FOR  SYNC  PORTS 
♦SYNC  PATTERN 

♦  SET  PtJINIERS  FOR  SYNC  PORTS 
♦SYNC  PATTERN/BAR 

iSET  INITIAL  CONDITIONS  ON  POINTER-COUNTER 
♦AND  FLAG 


♦  Bl 


♦  B2 


♦  B3 


APPENDIX  D 


00000000 

00000001 

00000002 

00000003 

00000004 

00000008 

00000009 

OOOOOOOA 

OOOOOOOB 

OOOOOOOC 

OOOOOOOD 

OOOOOOOE 

00000012 

00000013 

00000014 

00000015 

00000016 

00000010 

00000011 

00000040 

00000070 

00000000 

00000011 

00000010 

00000002 

00000008 

00000009 

00000000 

00000001 

00000082 

00000000 

00000028 

OOOOOOOF 

00000010 

00000001 

000000E6 

00000001 

00000040 

OOOOOOFE 

00000019 

OOOOOOFE 

OOOOOOBF 

15 

75 

E5 


BIME.LIS:! 


0000 

177 

0000 

0 

A1=00 

0000 

0 

A2=01 

0000 

0 

A3-02 

0000 

0 

A4=03 

0000 

0 

A  5 =04 

0000 

0 

Bl=08 

0000 

0 

B2=09 

0000 

0 

t«3=10 

0000 

0 

84=11 

0000 

0 

B5=12 

0000 

0 

86=13 

0000 

0 

87=14 

0000 

0 

C2=18 

0000 

0 

C3=19 

0000 

0 

C4=20 

0000 

0 

C5=21 

0000 

0 

C6=22 

0000 

0 

C7=16 

0000 

0 

C8=17 

0000 

0 

C9=64 

0000 

0 

C70=112 

0000 

0 

sc=oo 

0000 

0 

KI=17 

0000 

0 

KP=16 

0000 

0 

Pl=02 

0000 

0 

P2=08 

0000 

0 

P3=09 

0000 

0 

P4=00 

0000 

0 

P5=01 

0000 

0 

Wl=130 

0000 

0 

W2=00 

0000 

0 

W3=40 

0000 

0 

W4=15 

0000 

0 

W5=16 

0000 

0 

W6=01 

0000 

0 

W7=230 

0000 

0 

W8=01 

0000 

0 

W9=64 

0000 

0 

W10=254 

0000 

0 

Wll=25 

0000 

0 

',<112=254 

0000 

0 

W13=191 

0000  0 
0000 

0001  0 
0001 

0002  0 
0002 


nis  I 

Ei 
SI 


IDS 


c 


0008 

0 

MOOX 

-ROfA 

90 

0008 

0009 

0 

INC 

RO 

18 

0009 

OOOA 

0 

Hog 

A>U2 

23 

OOOA 

00 

OOOB 

OOOC 

0 

MOVX 

_ROf  A 

90 

OOOC 

OOOD 

0 

INC 

RO 

18 

GOOD 

OOOE 

0 

MOV 

A»W3 

23 

OOOE 

28 

OOOF 

0010 

0 

MOVX 

_RO»A 

90 

0010 

0011 

0 

INC 

RO 

18 

0011 

0012 

0 

MOV 

ArW4 

23 

0012 

OF 

0013 

0014 

0 

MOVX 

_ROfA 

90 

0014 

0015 

0 

MOV 

AfUS 

23 

0015 

10 

0016 

0017 

0 

OUTl. 

P2»A 

3A 

0017 

0018 

0 

MtJV 

R0fF2 

B8 

0013 

08 

0019 

OOIA 

0 

MOV 

R1  »P3 

B9 

001 A 

09 

001  f< 

00 1C 

0 

MOV 

R2»W6 

HA 

00 1C 

01 

00  III 

0011.. 

0 

MOV 

R3»W7 

EfH 

00  It: 

f6 

00  IF 

0020 

0 

MOV 

R4»W8 
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BC 

0020 

01 

0021 

0022 

0 

MOO 

R5fU9 

Bti 

0022 

40 

0023 

0024 

0 

SEL 

KBl 

H5 

0024 

0025 

0 

MOO 

RO » P4 

B8 

0025 

00 

0026 

0027 

0 

MOO 

R1»P5 

B9 

0027 

01 

0028 

0029 

0 

MOO 

R2fU10 

BA 

0029 

FE 

002A 

002B 

0 

MOV 

R3fUll 

BB 

002B 

19 

002C 

002D 

0 

MOV 

R4»U12 

BC 

002D 

FE 

002E 

002F 

0 

MOV 

R5»U13 

BD 

002F 

BF 

0030 

0031 

0 

SF.L 

RBO 

C5 

0031 

0032 

0 

MOV 

R6fKI 

BE 

0032 

11 

0033 

0034 

0 

CLR 

A 

27 

0034 

0035 

0 

MOV 

_RO»A 

AO 

0035 

0036 

0 

CLR 

FO 

85 

0036 

0037 

0 

CPL 

FO 

95 

0037 

0038 

0  loop: 

MOVX 

Ar_RO 

80 

0038 

0039 

0  si: 

JNTl 

SI  \ 

46 

0039 

> 

39' 

003A 

_ J 

003B 

0 

MOV 

AfR4 

FC 

003B 

003C 

0 

MOVX 

-Rif  A 

91 

003C 

003i;i 

0 

MOV 

AfR5 

FD 

003D 

EXAMPLE  C 
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